<script>on mouseUpif the short name of this stack is "Lone Ranger" thenanswer "Install Lone Ranger button in Home?" with "No Thanks" or "OK"if it is "OK" thenchoose button toolclick at loc of medoMenu "Copy Button"go HomedoMenu "Paste Button"put "Move mouse to where you want the button & click"repeat until the mouseClickset loc of button "Lone Ranger" to the mouseLocend repeathide msgchoose browse toolend ifelsevisual iris opengo to "Lone Ranger"end ifend mouseUp</script>
</part>
<part>
<id>39</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>200</left>
<top>171</top>
<right>299</right>
<bottom>190</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Options</name>
<script>on mouseDownset hilite of me to trueglobal stripResource, makeNoise, setIt, lockFile, visibilityif makeNoise is empty and size of this stack > 100000then put true into makeNoiseelse if makeNoise is empty then put false into makeNoiseif stripResource is empty then put false into stripResourceput "Make Noise,Strip Resource Fork,Turn Visible,Turn Invisible," & ¬"Lock File,Unlock File" into stuffif makeNoise then put "!" after item 1 of stuffif stripResource then put "!" after item 2 of stuffif visibility = "VISIBLE" then put "!" after item 3 of stuffif visibility = "INVISIBLE" then put "!" after item 4 of stuffif lockFile = "LOCK" then put "!" after item 5 of stuffif lockFile = "UNLOCK" then put "!" after item 6 of stuffget rect of the targetput HPopUpMenu(stuff, 0, item 4 of it,item 1 of it+1) into junkif item 1 of junk is not empty thenif item 1 of junk is "Make Noise" thenif size of this stack > 100000 thenput not makeNoise into makeNoiseif not makeNoise then play stopput true into setItelse answer "Sorry, you have the small soundless version."else if item 1 of junk is "Strip Resource Fork" thenif not stripResource thenanswer "This is MASSIVELY dangerous! Are you sure?" ¬with "OK" or "Cancel"if it is "OK" thenput not stripResource into stripResourceend ifelse put false into stripResourceelse if item 1 of junk is "Turn Visible" thenif visibility = "VISIBLE" then put "" into visibilityelse put "VISIBLE" into visibilityelse if item 1 of junk is "Turn Invisible" thenif visibility = "INVISIBLE" then put "" into visibilityelse put "INVISIBLE" into visibilityelse if item 1 of junk is "Lock File" thenif lockFile = "LOCK" then put "" into lockFileelse put "LOCK" into lockFileelse if item 1 of junk is "Unlock File" thenif lockFile = "UNLOCK" then put "" into lockFileelse put "UNLOCK" into lockFileend ifend ifset hilite of me to falseend mouseDown</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>50</left>
<top>137</top>
<right>250</right>
<bottom>157</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>oldType</name>
<script>on mouseDownglobal lastTypes, lastTypesItemlock screen-- hide target-- hide btn id 43unlock screenif lastTypes = "" thenput card field "Types" into theTypesget targetput 1 into lastItemput empty into menuStrrepeat with i = 1 to the number of items of theTypesput beforeStr(line i of theTypes,"'") into thisTypeif thisType is in it then put i into lastTypesItemput thisType & "," after menuStrend repeatput menuStr into lastTypeselse put lastTypes into menuStrget HPopUpMenu(menuStr, -lastTypesItem, top of me, left of me)if the result is not empty then put the resultlock screen-- show target-- show btn id 43unlock screenif it ≠ "" and item 1 of it ≠ first word of target thenput item 3 of it into lastTypesItemput line lastTypesItem of card field "Types" into lastItemif last char of lastItem = "," then delete last char of lastItem-- lastItem now holds the full field text of the menu item selectedif lastItem = "Other…" thenget getFileData("typeOnly")if it is not empty thenput "'" & item 1 of it & "'" into meput "'" & item 1 of it & "'" into card field "newType"put "'" & item 2 of it & "'" into card field "oldCreator"put "'" & item 2 of it & "'" into card field "newCreator"end ifelse -- not "Other…"put lastItem into the targetput lastItem into card field "newType"get card field cardNum(t(lastitem))put item 1 of it into card field "oldCreator"if the number of lines of it > 1 thenput item 1 of line 2 of it into card field "newCreator"elseput item 1 of line 1 of it into card field "newCreator"end ifend ifdoICONsend ifend mouseDown</script>
</part>
<part>
<id>5</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>50</left>
<top>212</top>
<right>250</right>
<bottom>232</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>newType</name>
<script>on mouseDownlock screen-- hide target-- hide btn id 46unlock screenput card field "Types" into theTypesget targetput 1 into lastItemput empty into menuStrrepeat with i = 1 to the number of items of theTypesput beforeStr(line i of theTypes,"'") into thisTypeif thisType is in it then put i into lastItemput thisType & "," after menuStrend repeatget HPopUpMenu(menuStr, -lastItem, top of me, left of me)if the result is not empty then put the resultlock screen-- show target-- show btn id 46unlock screenif item 1 of it ≠ "" and item 1 of it ≠ beforeStr(target,"'") thenput line (item 3 of it) of card field "Types" into lastItemif last char of lastItem = "," then delete last char of lastItemif not ((t(cd fld "oldType") = "TEXT" and t(lastItem) = "ttro") or ¬(t(cd fld "oldType") = "ttro" and t(lastItem) = "TEXT"))then answer "Changing the type of a file is not a good idea." with ¬"Says Who?" or "I Won’t"if it is "I Won’t" then exit MouseDownif lastItem = "Other…" thenget getFileData("typeOnly")if it is not empty thenput "'" & item 1 of it & "'" into card field "newType"put "'" & item 2 of it & "'" into card field "newCreator"end ifelseput lastItem into card field "newType"get card field cardNum(t(lastitem))put item 1 of line min(2,number of lines of it) of it into card field "newCreator"end ifdoICONsend ifend mouseDown</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>70</left>
<top>113</top>
<right>223</right>
<bottom>132</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>70</left>
<top>189</top>
<right>223</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>262</left>
<top>137</top>
<right>462</right>
<bottom>157</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>oldCreator</name>
<script>on mouseDownglobal lastOldType, lastOldMenuStr, lastOldItemlock screen-- hide target-- hide btn id 45unlock screenput card field "oldType" into theTypeif char 1 of theType = "'"then put "Anything,Specify…,Other…" into theCreatorselse put card field cardNum(t(theType)) into theCreatorsif theType = lastOldType thenput lastOldMenuStr into menuStrelseget meput 1 into lastOldItemput empty into menuStrrepeat with i = 1 to the number of items of theCreatorsput beforeStr(line i of theCreators,"'") into thisCreatorif thisCreator is in it then put i into lastOldItemput "," & thisCreator after menuStrend repeatif char 1 of theType = "'"then put "Anything,Specify…,Other…" into menuStrelse put ",Anything,Specify…,Other…" after menuStrput theType into lastOldTypeput menuStr into lastOldMenuStrend ifput HPopUpMenu(menuStr, -lastOldItem, top of me, left of me) into rif the result ≠ "" then put the resultlock screen-- show target-- show btn id 45unlock screenif item 1 of r ≠ "" thenif item 1 of r = "Anything" thenput item 1 of r into the targetput item 3 of r into lastOldItemelse if item 1 of r = "Specify…" thenask "Please specify a four character creator code:" with t(me)if it ≠ "" thenput "'" & char 1 to 4 of it & "'" into meput item 3 of r into lastOldItemend ifelse if item 1 of r = "Other…" thenget getFileData("creatorOnly")if it ≠ "" thenput "'" & item 2 of it & "'" into meput item 3 of r into lastOldItemend ifelseput item 3 of r into lastOldItemput item 1 of line lastOldItem of theCreators into the targetend ifdoICONsend ifend mouseDown</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>262</left>
<top>212</top>
<right>462</right>
<bottom>232</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>newCreator</name>
<script>on mouseDownglobal lastNewType, lastNewMenuStr, lastNewItemlock screen-- hide target-- hide btn id 44unlock screenput card field "newType" into theTypeif char 1 of theType = "'"then put "Other…" into theCreatorselse put card field cardNum(t(theType)) into theCreatorsif theType = lastNewType thenput lastNewMenuStr into menuStrelseget targetput 1 into lastNewItemput empty into menuStrrepeat with i = 1 to the number of items of theCreatorsput beforeStr(line i of theCreators,"'") into thisCreatorif thisCreator is in it then put i into lastNewItemput "," & thisCreator after menuStrend repeatif char 1 of theType = "'"then put "Specify…,Other…" into menuStrelse put ",Specify…,Other…" after menuStrput theType into lastNewTypeput menuStr into lastNewMenuStrend ifget HPopUpMenu(menuStr, -lastNewItem, top of me, left of me)if the result is not empty then put the resultlock screen-- show target-- show btn id 44unlock screenif item 1 of it is not empty thenif item 1 of it is "Anything" thenput item 1 of it into the targetelse if item 1 of it is "Specify…" thenask "Please specify a four character creator code:" with t(me)if it ≠ "" thenput "'" & item 2 of it & "'" into meend ifelse if item 1 of it = "Other…" thenget getFileData("creatorOnly")if it ≠ "" thenput "'" & item 2 of it & "'" into meend ifelseput item 3 of it into lastNewItemput item 1 of line lastNewItem of theCreators into the targetend ifdoICONsend ifend mouseDown</script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>286</left>
<top>113</top>
<right>439</right>
<bottom>132</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>284</left>
<top>189</top>
<right>437</right>
<bottom>208</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name></name>
<script></script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>218</left>
<top>264</top>
<right>298</right>
<bottom>286</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Start</name>
<script>on mouseUpglobal makeNoise, stripResource, lockFile, visibilityput t(cd fld "oldType") into oldTypeput t(cd fld "newType") into newTypeput t(cd fld "oldCreator") into oldCreatorput t(cd fld "newCreator") into newCreatorput "Changing files of type & creator '" & oldType & "', '" & ¬oldCreator & "' to '" & newType & "', '" & newCreator & "'"lock screenif makeNoise then play "Lone Ranger"if stripResource then put "STRIP" into p1else put "" into p1ranger oldType,newType,oldCreator,newCreator, p1, lockFile, visibilityget the resultput false into stripResourceunlock screenif it = "" thenelseput itwait 3 secsend ifhide msgend mouseUp</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>58</left>
<top>245</top>
<right>173</right>
<bottom>310</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PNTG</name>
<script></script>
</part>
<part>
<id>12</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>204</left>
<top>49</top>
<right>315</right>
<bottom>90</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>FSSD</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>56</left>
<top>176</top>
<right>186</right>
<bottom>244</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>WORD</name>
<script></script>
</part>
<part>
<id>25</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>410</left>
<top>55</top>
<right>462</right>
<bottom>93</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2478</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal makeNoiselock screenif short name of button id 13 = "Hide File Creators"then send mouseUp to button id 13hide button "Show File Creators"hide card field "Help"hide card field "Help2"hide button "More"set visible of card field "About" to not visible of card field "About"if visible of card field "About" and the optionkey is up thenif makeNoise then play "Lone Ranger"put "dissolve slow" into theSpeedelse put "dissolve" into theSpeedunlock screen with theSpeedend mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>58</left>
<top>57</top>
<right>101</right>
<bottom>91</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21060</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpput the optionKey is down into oplock screenif not visible of card field "Help2" thenset visible of card field "Help" to not visible of card field "Help"set visible of button "More" to not visible of button "More"end ifif short name of button id 13 = "Hide File Creators"then send mouseUp to button id 13hide button "Show File Creators"hide card field "About"hide card field "Help2"if op thensend mouseUp to button "More"send mouseUp to button id 13end ifunlock screen with dissolve fastend mouseUp</script>
</part>
<part>
<id>43</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>226</left>
<top>140</top>
<right>245</right>
<bottom>152</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "fld")end mouseDown</script>
</part>
<part>
<id>9</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>330</left>
<top>50</top>
<right>462</right>
<bottom>248</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>TEXT</name>
<script></script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>48</left>
<top>48</top>
<right>194</right>
<bottom>173</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Types</name>
<script></script>
</part>
<part>
<id>35</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>211</left>
<top>135</top>
<right>314</right>
<bottom>152</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>ttro</name>
<script></script>
</part>
<part>
<id>41</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>197</left>
<top>158</top>
<right>326</right>
<bottom>283</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>PICT</name>
<script></script>
</part>
<part>
<id>42</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>320</top>
<right>21</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpget getFileData("Both")if it Γëá "" then put itend mouseUp</script>
</part>
<part>
<id>44</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>438</left>
<top>215</top>
<right>457</right>
<bottom>227</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "fld")end mouseDown</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>438</left>
<top>140</top>
<right>457</right>
<bottom>152</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "fld")end mouseDown</script>
</part>
<part>
<id>46</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>226</left>
<top>215</top>
<right>245</right>
<bottom>227</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "fld")end mouseDown</script>
</part>
<part>
<id>47</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>277</left>
<top>174</top>
<right>296</right>
<bottom>186</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>11893</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseDownsend mouseDown to hittest(the mouseLoc, "btn")end mouseDown</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>50</left>
<top>92</top>
<right>463</right>
<bottom>310</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Help</name>
<script></script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>340</left>
<top>94</top>
<right>407</right>
<bottom>113</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>More</name>
<script>on mouseUplock screenhide card field "Help"show card field "Help2"show card button "Show File Creators"hide button "More"unlock screen with dissolve fastend mouseUp</script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>48</left>
<top>107</top>
<right>462</right>
<bottom>307</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Help2</name>
<script></script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>185</left>
<top>286</top>
<right>330</right>
<bottom>308</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Show File Creators</name>
<script>on mouseUpIf the short name of the target is "Hide File Creators" thenlock screenrepeat with i = 1 to the number of card fieldsif not (short name of cd fld i is in "About,Help,Help1,Help2")then set visible of cd fld i to not visible of cd fld iend repeatset name of target to "Show File Creators"hide targetshowIconsshow cd pictshow button "Start"show button "Options"show field "Title"unlock screen with dissolve fastelselock screenrepeat with i = 1 to the number of card fieldsif not (short name of cd fld i is in "About,Help,Help1")then set visible of cd fld i to not visible of cd fld iend repeatset name of target to "Hide File Creators"hideIconshide cd picthide button "Start"hide button "Options"hide field "Title"unlock screen with dissolve fastend ifend mouseUp</script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>47</left>
<top>90</top>
<right>464</right>
<bottom>309</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>About</name>
<script></script>
</part>
<part>
<id>48</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>161</left>
<top>254</top>
<right>193</right>
<bottom>286</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>oldICN</name>
<script></script>
</part>
<part>
<id>49</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>326</left>
<top>253</top>
<right>358</right>
<bottom>285</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>newICN</name>
<script></script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>208</left>
<top>94</top>
<right>312</right>
<bottom>111</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>sfil</name>
<script></script>
</part>
<part>
<id>53</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>210</left>
<top>114</top>
<right>314</right>
<bottom>131</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>SFIL</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>6</id>
<text>Change files of type:</text>
</content>
<content>
<layer>card</layer>
<id>7</id>
<text>to files of type:</text>
</content>
<content>
<layer>card</layer>
<id>8</id>
<text>ASCII Text 'TEXT',Postscript 'TEXT',MacWrite Files 'WORD',MacPaint Files 'PNTG',Sound Data Files 'FSSD',Sound Resources 'SFIL',System 7 Sounds 'sfil',Pictures 'PICT',TeachText ReadOnly 'ttro',Other…</text>
</content>
<content>
<layer>card</layer>
<id>9</id>
<text>MacWrite 'MACA',TeachText 'ttxt',MacWrite II 'MWII',MS Word 'MSWD',FullWrite 'FWRT',WriteNow 'nX^n',MacSink 'McSk',Edit 'EDIT',QUED 'QED1',MPW Shell 'MPS ',Lightspeed C 'KAHL',Lightspeed Pascal 'PJMM',Adobe Streamline 'R2V2',Adobe Illustrator 'ARTZ',Freehand 'FHA2',Unknown '????'</text>
</content>
<content>
<layer>card</layer>
<id>10</id>
<text>MacWrite 'MACA',MacWrite II 'MWII',MS Word 'MSWD',FullWrite 'FWRT',WriteNow 'nX^n'</text>
<text>The Lone Ranger v 2.0b17 Copyright 1989,1990 by Jon Pugh All Rights ReservedThis program can change the type and creator of any files in a subtree of a disk’s HFS file system. For example, it can change all the MacPaint files on a disk from their original MacPaint icon to the FullPaint icon or vice versa. This will also change the program that starts up when you double click on the file from the Finder. This can operate on any portion of a disk. It will start at any folder and operate on all folders within that folder.This knows about several file types and for each type, it knows about several creators.If you discover other programs or file types, you can add them to the menus.See the help screens for more information about adding types and creators.This does NOT change file formats or any of the data in the file.Jon Pugh - (415) 373-7872jonpugh@applelink.apple.comjpugh@apple.comAs usual, feel free to send money, praise and bug reports.PlotFinderICN XCMD © Apple Computer Inc.</text>
</content>
<content>
<layer>card</layer>
<id>29</id>
<text>How to use the Lone Ranger.1) Choose a file type from the top left popup menu. If the file type is not listed,choose the Other… item and choose a file of the type desired.2) Choose the old program creator from the popup menu on the top right.The Anything item will change all files of that type while Other… lets you choose a program or data file of the creator that you want to change from.3) You can change the Type of the file by changing the bottom left item, but this is not a good idea. Very few choices are legal with only TEXT to ttro and back being supported.4) Choose a new creator from the popup menu on the bottom right or choose Other… to choose the program that you want the files to belong to.5) When all the types are correct, pick the Start button.6) Choose the folder that you want the Lone Ranger to start traversing.It will change all files found within this folder and all folders within this folder.All files of the chosen type will be displayed. Cancel aborts the search.7) The Lone Ranger will crank for a while andthen display the number of folders searched and the number of files changed.</text>
</content>
<content>
<layer>card</layer>
<id>33</id>
<text>The Lone Ranger is customizable but be careful. It is easy to break.There are some hidden card fields that containthe info the Ranger uses to display the popup menus.The main field is named Types.It contains the data file names and their four character type codes.The other fields are named by their four character type codes andcontain program names and their four character creator codes.The four character code must be enclosed in 'single' quotes andit must be the last space-delimited word on the line.The options allow you to control the playing of music via "Make Noise",whether or not to remove the resource fork via "Strip Resource Fork",the visibility of the file via "Make Visible" & "Make Invisible", andlock and unlock files via "Lock File" & "Unlock File".</text>
<text>ΓÇá Change these files to this file ΓÇá</text>
</content>
<content>
<layer>card</layer>
<id>16</id>
<text>TeachText 'ttxt'</text>
</content>
<content>
<layer>card</layer>
<id>52</id>
<text>Finder 7 'movr'</text>
</content>
<content>
<layer>card</layer>
<id>53</id>
<text>SoundMover 'SMOV'</text>
</content>
<name></name>
<script>on openCardglobal makeNoise, setIt, stripResource, lockFile, visibilityif makeNoise = "" and size of this stack > 100000then put true into makeNoiseif setIt = "" then put false into setItif stripResource is "" then put false into stripResourcedoICONspass openCardend openCardon doICONsglobal dOldCreator, dNewCreator, dOldType, dNewTypeset cursor to watchlock screenput the userLevel into oldLevelset userLevel to 5put t(cd fld "oldType") into oldTypeput t(cd fld "newType") into newTypeput t(cd fld "oldCreator") into oldCreatorput t(cd fld "newCreator") into newCreatorif oldCreator Γëá dOldCreator or oldType Γëá dOldType thenDsktpICN oldCreator, oldType, topLeft of btn oldICN, 1, "", "nodialog"-- plotFinderICN oldCreator, oldType, topLeft of btn oldICN, 1, "", "nodialog"-- if the result Γëá "" then put the resultput oldCreator into dOldCreatorput oldType into dOldTypeend ifif newCreator Γëá dNewCreator or newType Γëá dNewType thenDsktpICN newCreator, newType, topLeft of btn newICN, 1, "", "nodialog"-- if the result Γëá "" then put the resultput newCreator into dNewCreatorput newType into dNewTypeend ifset userLevel to oldLevelunlock screen with dissolve fastset cursor to browseend doICONson hideIconsrepeat with i = 1 to number of btnsif icon of btn i = 11893 then hide btn iend repeatend hideIconson showIconsrepeat with i = 1 to number of btnsif icon of btn i = 11893 then show btn iend repeatend showIcons</script>
